home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / scandir < prev    next >
Encoding:
Text File  |  2002-10-28  |  281 b   |  19 lines
  1. /*
  2.  * scandir -- an interesting way to use $glob() to get all the files
  3.  * in a [sub]directory.
  4.  */
  5. alias scandir
  6. {
  7.     ^local retval
  8.     ^local last
  9.  
  10.     for x in ($glob($*/*))
  11.     {
  12.         if (!(last = after(-1 / $x))) \
  13.             @ last = x
  14.         push retval $last
  15.     }
  16.     @ function_return = retval
  17. }
  18. #hop'97
  19.